home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
XSCREEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-06
|
688b
|
34 lines
{$IBoDecl}
{$ICopies}
{$ICenter}
{$IPutStr}
{$ISaves}
{$IRestores}
BEGIN
Mark ( HeapTop );
New ( page[1] );
New ( page[2] );
for i := 1 to 25 do
PutStr (h,Copies ( ' ' ,80), 1, i, 7 );
PutStr (h, Center (' PRESS ANY KEY ',80,' ' ),1,13,7);
SaveScreen ( page[1] );
read(Kbd,ch);
for i := 1 to 25 do
PutStr (h,Center ( 'This is screen 2 - press SpaceBar to quit',
80,' '),1,i,14);
SaveScreen ( page[2] );
read(Kbd,ch);
repeat
RestoreScreen ( page[1] );
read(Kbd,ch);
RestoreScreen ( page[2] );
read(Kbd,ch);
until ch = ' ';
Release ( HeapTop );
END.